home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / h / hypertextdatav40.12cr.lha / HTDS / ARexx / viewsource.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-03-31  |  1.8 KB  |  77 lines
  1. /*
  2. ** $PROJECT: HTDS ARexx scripts
  3. **
  4. ** $VER: viewsearch.rexx 40.1 (30.03.97)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1997 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: Stefan.Ruppert@informatik.fh-wiesbaden.de
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 30.03.97 : 040.001 : initial
  15. */
  16.  
  17. Parse Arg args
  18. Options Results
  19.  
  20. /* --------------------------- needed libraries --------------------------- */
  21.  
  22. Call AddLib('rexxsupport.library',0,-30,0)
  23. Call AddLib('rexxdossupport.library',0,-30,0)
  24.  
  25. /* ------------------------ end customize section ------------------------- */
  26.  
  27. If ReadArgs(args,'DUMMY','VIEWSRC.') Then Do
  28.  
  29.    buffer = ''
  30.    screen = ''
  31.    nodename = ''
  32.    path     = ''
  33.    mvargs = ''
  34.    'GETATTR OBJECT=OBJECT FIELD=BUFFER   VAR=BUFFER'
  35.    'GETATTR OBJECT=OBJECT FIELD=PATH     VAR=PATH'
  36.    'GETATTR OBJECT=OBJECT FIELD=NODENAME VAR=NODENAME'
  37.    'GETATTR OBJECT=APPLICATION FIELD=SCREEN VAR=SCREEN'
  38.  
  39.    If screen ~= '' Then
  40.       mvargs = mvargs || ' PUBSCREEN="' || screen || '"'
  41.  
  42.    tmpfile = 'T:htdsviewsource'
  43.    i = 0
  44.    Do While Exists(tmpfile || i)
  45.       i = i + 1
  46.    End
  47.    tmpfile = tmpfile || i
  48.  
  49.    portname = 'HTDSVIEWSRC.' || i
  50.    mvargs   = mvargs || ' PORTNAME="' || portname || '"'
  51.  
  52.    If Open('fh',tmpfile,'w') Then Do
  53.       Call WriteLn('fh',buffer)
  54.       Call Close('fh')
  55.       /* clear var */
  56.       buffer = ''
  57.       ADDRESS COMMAND 'run >NIL: MultiView ' || tmpfile || mvargs
  58.  
  59.       portname = portname || '.1'
  60.       ADDRESS COMMAND 'WaitForPort ' || portname
  61.       ADDRESS VALUE portname
  62.  
  63.       title = 'Source of : ' || path
  64.       If nodename ~= '' Then
  65.      title = title || '/' || nodename
  66.  
  67.       'SETATTR OBJECT=OBJECT FIELD=TITLE VAR=TITLE'
  68.  
  69.       Do While Show('P',portname)
  70.      Call Delay(200)
  71.       End
  72.  
  73.       ADDRESS COMMAND 'Delete >NIL: ' || tmpfile
  74.    End
  75. End
  76.  
  77.